home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / ADVHSC18.ZIP / EXAMPLE.PAS < prev    next >
Pascal/Delphi Source File  |  1994-06-20  |  529b  |  25 lines
  1. Program HSCExample1;
  2.  
  3. { Little Example To Show The Use Of The Antares HSC Player }
  4. { Coded By Access/ADV - 05/94 }
  5. { Modified By Access/ADV - 06/94 }
  6.  
  7. Uses Crt,ADVHSC;
  8.  
  9. Var i:WORD;
  10.  
  11. Begin
  12. LOADSONG('MUSIC.HSC');  { Loading the Song Into Memory }
  13.  
  14. PLAYSONG; { Play The Song }
  15.  
  16. Repeat
  17. Inc(i);
  18. Write(i,' ');
  19. Until KeyPressed;
  20.  
  21. FADESONG; { Fade Out The Volume }
  22. Delay(2000); { Wait For 2 Seconds To Allow The Fade To Complete }
  23. STOPSONG; { Stop The Replay }
  24. CLEARMEM; { Free Memory Allocated By LOADSONG }
  25. End.